
define buffer pcode for code_mstr .

for each pcode no-lock where pcode.code_fldname = "vd_type":
/*    disp pcode.code_fldname pcode.code_value
        pcode.code_cmmt pcode.code_desc .
*/
    create code_mstr.
    assign
        code_mstr.code_fldname = "pv_type"
        code_mstr.code_value = pcode.code_value
        code_mstr.code_cmmt = pcode.code_cmmt 
        code_mstr.code_desc = pcode.code_desc 
        .
end.
